home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 March / PCWorld_2002-03_cd.bin / Software / TemaCD / xteq / setup.exe / {app} / plugins / XQ RAM Settings.xpl < prev    next >
Text File  |  2001-01-26  |  2KB  |  64 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="2"
  4. "UIPATH"="System\Memory"
  5. "NAME"="General Memory Settings"
  6. "VERSION"="1.43"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Unload DLLs directly"
  9. "TEXT 2"="Reserve more memory for DOS programs (Win 9x ONLY!)"
  10. "DESCRIPTION 1"="Normally, Windows waits a short time before DLLs are removed from memory. If you activate this option, Windows removes them directly without waiting."
  11. "DESCRIPTION 2"="NOTE: some programs (like ActiveDesktop, Access or some Windows 2000 Network providers) will *CRASH* if you activate it!"
  12. "DESCRIPTION 3"="Enable "Reserve more memory for DOS programs" if you are still using DOS-based programs and you think they can need some more memory. This is achived by using the HIGH memory block normally unused in DOS."
  13. "AUTHOR"="Xteq Systems"
  14. "CONTACTURL"="http://www.xteq.com"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"=" "
  17. "COMMENT 2"="Thanks to uy [mailto:dr_teeth@bigfoot.com] for the "value != 1" bug fix!"
  18.  
  19.  
  20. Sub Plugin_Initialize 
  21.  'AllwayUnloadDLLs! former a path but I think this is the correct version
  22.  'Let's say: I HOPE SO!
  23.  s=RegReadValue("HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\AlwaysUnloadDLL")
  24.  if s="1" then SetUIElement 1,true
  25.  
  26.  i=IniReadValue("system.ini","386Enh","LocalLoadHigh")
  27.  if i=1 then SetUIElement 2,true
  28. End Sub
  29.  
  30.  
  31. Sub Plugin_CheckData(ElementIndex)
  32. End Sub
  33.  
  34.  
  35.  
  36. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  37.  b=GetUIElement(1)
  38.  if b=true then
  39.   Call RegWriteValue("HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\AlwaysUnloadDLL","1",1)
  40.  else
  41.   s=RegReadValue("HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\AlwaysUnloadDLL")
  42.   if IsEmpty(s)=false then 
  43.    Call RegDeleteValue("HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\AlwaysUnloadDLL")
  44.   end if
  45.  end if
  46.  
  47.  
  48.  b=GetUIElement(2)
  49.  if b=true then
  50.   Call IniWriteValue("system.ini","386Enh","LocalLoadHigh",1)
  51.  else
  52.   Call IniWriteValue("system.ini","386Enh","LocalLoadHigh",0)
  53.  end if
  54.  
  55.  Restart
  56. End Sub
  57.  
  58.  
  59. Sub Plugin_Terminate 
  60. End Sub
  61.  
  62.  
  63.  
  64.